home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
comm
/
tribbs20.lha
/
OLP
/
last10callers
< prev
next >
Wrap
Text File
|
1995-09-26
|
2KB
|
81 lines
/*
Last Caller v1.4a
(Save and Read!)
written by
Chris Parker
(c) copyright 1990 Chris Parker
All Rights Reserved
Lord Berek Chris Parker
Orange County Programmers BBS 19221 Biddle Drive
(714)854-0613 Irvine, CA 92715
(indents are TABS not spaces [take less space])
*/
options results
CallUser = "olp:CallUsers"
/*****************************/
LastCallers=10 /* Number of callers to list */
/*****************************/
Bypass=0 /* 1 = allow high users to */
/* bypass being in the log */
/*****************************/
do i=1 to LastCallers;Line.i="";end
GETUSER 1;UserName=result
GETUSER 4;UserCity=result
GETUSER 15;UserAcc=result
GETUSER 17;UserSMa=result
GETUSER 40;UserID=result
GETUSER 12;UserDate=result
GETUSER 23;UserPort=result
GETUSER 24;UserBaud=result
UserBaud=UserBaud*10
if ~exists(CallUser) then do
call open OldUserData,CallUser,'W'
call close OldUserData
end
call open OldUserData,CallUser,'R'
i=1
do until eof(OldUserData)
line.i=readln(OldUserData)
if line.i~="" then do;i=i+1;HighLine=i;end
end
call close OldUserData
if Bypass=1 then do
if (UserAcc=23)|(UserSma=1)|(UserID=1) then do
Sendstring "c7Do you wish to enter yourself into log of last callers (y/N)?"
getchar
if result ~= "Y" then do;Transmit " c3Non2";call VIEW;end
Transmit " c1Yes"
end
end
sendstring "c5Logging your callc1..."
if userid=1 then call VIEW
call open NewUserData,CallUser,'W'
call writeln NewUserData,UserName" : "UserCity" : "UserDate" : "UserBaud" : "UserPort""
do i=1 to (LastCallers-1);if line.i~="" then call writeln(NewUserData,line.i);end
call close NewUserData
VIEW:
Transmit "h9h4h7c5Last c1"||LastCallers||"c5 Callers To The System"
Transmit " "
Transmit " c7Caller's Handle City, State Logon Date, Time Baud "
Transmit "c2-------------------- -------------------- ---------------------- ---- "
if exists(CallUser) then do
call open OldUserData,CallUser,'R'
do until eof(OldUserData)
line=readln(OldUserData)
if line="" then iterate
parse var line name ' : ' city ' : ' date ' : ' baud ' : ' prt
Transmit "c6"left(name,22)"c7"left(city,22)"c3"left(date,24)"c4"left(baud,6)"c6"left(prt,1)""
end
call close OldUserData
end
exit